home *** CD-ROM | disk | FTP | other *** search
/ Internet E-Mail Workshop / Internet E-Mail Workshop.iso / menu / menu.bas < prev    next >
BASIC Source File  |  1994-09-13  |  6KB  |  350 lines
  1. CLS
  2.  
  3. START:
  4. SHELL "INTERNET.COM"
  5.  
  6. INTERNETMENU:
  7.       A$=INKEY$
  8.          IF A$=CHR$(49) THEN GOTO INTDEFINED
  9.          IF A$=CHR$(50) THEN GOTO ACCESS
  10.          IF A$=CHR$(51) THEN GOTO EMAIL
  11.          IF A$=CHR$(52) THEN GOTO BBSLIST
  12.          IF A$=CHR$(53) THEN GOTO DOSTUTORS
  13.          IF A$=CHR$(54) THEN GOTO INFORMATION
  14.          IF A$=CHR$(55) THEN GOTO PROTOCALS
  15.          IF A$=CHR$(56) THEN GOTO UTILS
  16.          IF A$=CHR$(27) THEN SHELL "CD\":CLS:END
  17.       GOTO INTERNETMENU
  18.  
  19. INTDEFINED:
  20. SHELL "DEFINED.COM"
  21.  
  22. DEFINEDMENU:
  23.       A$=INKEY$
  24.          IF A$=CHR$(49) THEN GOTO BEGINNER
  25.          IF A$=CHR$(50) THEN GOTO DUMMY
  26.          IF A$=CHR$(51) THEN GOTO FQUESTIONS
  27.          IF A$=CHR$(52) THEN GOTO IDENTITY
  28.          IF A$=CHR$(53) THEN GOTO WHATINT
  29.          IF A$=CHR$(54) THEN GOTO WHATUSE
  30.          IF A$=CHR$(27) THEN GOTO START
  31.       GOTO DEFINEDMENU
  32.  
  33.  
  34. BEGINNER:
  35. CLS
  36. SHELL "CD\TUTORIAL\INTGUIDE"
  37. SHELL "GO.BAT"
  38. SHELL "CD\MENU"
  39. CLS
  40. GOTO INTDEFINED
  41.  
  42. DUMMY:
  43. CLS
  44. SHELL "CD\REFERENC\DUMGUIDE"
  45. SHELL "GO.BAT"
  46. SHELL "CD\MENU"
  47. CLS
  48. GOTO INTDEFINED
  49.  
  50. FQUESTIONS:
  51. CLS
  52. SHELL "CD\TUTORIAL\QUESTION"
  53. SHELL "GO.BAT"
  54. SHELL "CD\MENU"
  55. CLS
  56. GOTO INTDEFINED
  57.  
  58. IDENTITY:
  59. CLS
  60. SHELL "CD\REFERENC\IDENTITY"
  61. SHELL "GO.BAT"
  62. SHELL "CD\MENU"
  63. CLS
  64. GOTO INTDEFINED
  65.  
  66. WHATINT:
  67. CLS
  68. SHELL "CD\REFERENC\WHAT_INT"
  69. SHELL "GOINT.BAT"
  70. SHELL "CD\MENU"
  71. CLS
  72. GOTO INTDEFINED
  73.  
  74. WHATUSE:
  75. CLS
  76. SHELL "CD\REFERENC\WHAT_INT"
  77. SHELL "GOUSE.BAT"
  78. SHELL "CD\MENU"
  79. CLS
  80. GOTO INTDEFINED
  81.  
  82. INFORMATION:
  83. CLS
  84. SHELL "CD\INFO"
  85. SHELL "LIST.COM"
  86. SHELL "CD\MENU"
  87. GOTO START
  88.  
  89. ACCESS:
  90. SHELL "ACCESS.COM"
  91.  
  92. ACCESSMENU:
  93.      A$=INKEY$
  94.          IF A$=CHR$(49) THEN GOTO DIALSITE
  95.          IF A$=CHR$(50) THEN GOTO MODERATOR
  96.          IF A$=CHR$(51) THEN GOTO SERVICES
  97.          IF A$=CHR$(27) THEN GOTO START
  98.      GOTO ACCESSMENU
  99.  
  100. DIALSITE:
  101. SHELL "CD\REFERENC\DIALSITE"
  102. SHELL "GO.BAT"
  103. SHELL "CD\MENU"
  104. CLS
  105. GOTO ACCESSMENU
  106.  
  107. MODERATOR:
  108. SHELL "CD\REFERENC\MODERFTP"
  109. SHELL "GO.BAT"
  110. SHELL "CD\MENU"
  111. CLS
  112. GOTO ACCESSMENU
  113.  
  114. SERVICES:
  115. SHELL "CD\REFERENC\SERVICES"
  116. SHELL "GO.BAT"
  117. SHELL "CD\MENU"
  118. CLS
  119. GOTO ACCESSMENU
  120.  
  121. EMAIL:
  122. SHELL "EMAIL.COM"
  123.  
  124. EMAILMENU:
  125.        A$=INKEY$
  126.          IF A$=CHR$(49) THEN GOTO FAMOUS
  127.          IF A$=CHR$(50) THEN GOTO INTERNATION
  128.          IF A$=CHR$(51) THEN GOTO GUIDE
  129.          IF A$=CHR$(52) THEN GOTO NEWSGRP
  130.          IF A$=CHR$(53) THEN GOTO MAILLISTS
  131.          IF A$=CHR$(54) THEN GOTO SELLING
  132.          IF A$=CHR$(27) THEN GOTO START
  133.       GOTO EMAILMENU
  134.  
  135. FAMOUS:
  136. SHELL "CD\REFERENC\MAILINFO"
  137. SHELL "GO1.BAT"
  138. SHELL "CD\MENU"
  139. CLS
  140. GOTO EMAIL
  141.  
  142. INTERNATION:
  143. SHELL "CD\REFERENC\INT_MAIL"
  144. SHELL "GO.BAT"
  145. SHELL "CD\MENU"
  146. CLS
  147. GOTO EMAIL
  148.  
  149. GUIDE:
  150. SHELL "CD\REFERENC\MAILINFO"
  151. SHELL "GO2.BAT"
  152. SHELL "CD\MENU"
  153. CLS
  154. GOTO EMAIL
  155.  
  156. NEWSGRP:
  157. SHELL "CD\REFERENC\NEWS_GRP"
  158. SHELL "GO.BAT"
  159. SHELL "CD\MENU"
  160. CLS
  161. GOTO EMAIL
  162.  
  163. MAILLISTS:
  164. SHELL "CD\REFERENC\MAILLIST"
  165. SHELL "GO.BAT"
  166. SHELL "CD\MENU"
  167. CLS
  168. GOTO EMAIL
  169.  
  170. SELLING:
  171. SHELL "CD\REFERENC\SELLING"
  172. SHELL "GO.BAT"
  173. SHELL "CD\MENU"
  174. CLS
  175. GOTO EMAIL
  176.  
  177.  
  178. BBSLIST:
  179. SHELL "BBS.COM"
  180.  
  181. BBSMENU:
  182.      A$=INKEY$
  183.          IF A$=CHR$(49) THEN GOTO CANADA
  184.          IF A$=CHR$(50) THEN GOTO COMPANY
  185.          IF A$=CHR$(51) THEN GOTO GOVBBS
  186.          IF A$=CHR$(52) THEN GOTO INETBBS
  187.          IF A$=CHR$(53) THEN GOTO BBSLISTINGS
  188.          IF A$=CHR$(54) THEN GOTO VENDLIST
  189.          IF A$=CHR$(27) THEN GOTO START
  190.      GOTO BBSMENU
  191.  
  192. CANADA:
  193. SHELL "CD\REFERENC\CANADA"
  194. SHELL "GO.BAT"
  195. SHELL "CD\MENU"
  196. CLS
  197. GOTO BBSLIST
  198.  
  199. COMPANY:
  200. SHELL "CD\REFERENC\CO_BBS"
  201. SHELL "GO.BAT"
  202. SHELL "CD\MENU"
  203. CLS
  204. GOTO BBSLIST
  205.  
  206. GOVBBS:
  207. SHELL "CD\REFERENC\GOVT_BBS"
  208. SHELL "GO.BAT"
  209. SHELL "CD\MENU"
  210. CLS
  211. GOTO BBSLIST
  212.  
  213. INETBBS:
  214. SHELL "CD\REFERENC\INET_BBS"
  215. SHELL "GO.BAT"
  216. SHELL "CD\MENU"
  217. CLS
  218. GOTO BBSLIST
  219.  
  220. BBSLISTINGS:
  221. SHELL "CD\REFERENC\BBS_LIST"
  222. SHELL "GO.BAT"
  223. SHELL "CD\MENU"
  224. CLS
  225. GOTO BBSLIST
  226.  
  227. VENDLIST:
  228. SHELL "CD\REFERENC\VENDLIST"
  229. SHELL "GO.BAT"
  230. SHELL "CD\MENU"
  231. CLS
  232. GOTO BBSLIST
  233.  
  234. DOSTUTORS:
  235. SHELL "DOSTUT.COM"
  236.  
  237. DOSMENU:
  238.      A$=INKEY$
  239.          IF A$=CHR$(49) THEN GOTO TUTORDOS
  240.          IF A$=CHR$(50) THEN GOTO GLOSSARY
  241.          IF A$=CHR$(51) THEN GOTO HACKER
  242.          IF A$=CHR$(52) THEN GOTO MODEMCO
  243.          IF A$=CHR$(53) THEN GOTO PCLEARN
  244.          IF A$=CHR$(54) THEN GOTO WHATBOX
  245.          IF A$=CHR$(27) THEN GOTO START
  246.      GOTO DOSMENU
  247.  
  248. TUTORDOS:
  249. CLS
  250. SHELL "CD\TUTORIAL\DOS_TUT"
  251. SHELL "TUTORDOS"
  252. SHELL "CD\MENU"
  253. GOTO DOSTUTORS
  254.  
  255. GLOSSARY:
  256. CLS
  257. SHELL "CD\REFERENC\GLOSSARY"
  258. SHELL "GLOSRY.EXE"
  259. SHELL "CD\MENU"
  260. GOTO DOSTUTORS
  261.  
  262. HACKER:
  263. CLS
  264. SHELL "CD\REFERENC\HACK_DIC"
  265. SHELL "GO.BAT"
  266. SHELL "CD\MENU"
  267. GOTO DOSTUTORS
  268.  
  269. MODEMCO:
  270. CLS
  271. SHELL "CD\REFERENC\MODEMS"
  272. SHELL "GO.BAT"
  273. SHELL "CD\MENU"
  274. GOTO DOSTUTORS
  275.  
  276. PCLEARN:
  277. CLS
  278. SHELL "CD\TUTORIAL\PC_LEARN"
  279. SHELL "GO.BAT"
  280. SHELL "CD\MENU"
  281. GOTO DOSTUTORS
  282.  
  283. WHATBOX:
  284. CLS
  285. SHELL "CD\TUTORIAL\WHAT_BOX"
  286. SHELL "GO.BAT"
  287. SHELL "CD\MENU"
  288. GOTO DOSTUTORS
  289.  
  290. PROTOCALS:
  291. SHELL "CD\TUTORIAL\TCPTUT"
  292. SHELL "GO.BAT"
  293. SHELL "CD\MENU"
  294. GOTO START
  295.  
  296. UTILS:
  297. SHELL "UTILS.COM"
  298.  
  299. UTILMENU:
  300.       A$=INKEY$
  301.          IF A$=CHR$(51) THEN GOTO UTILS3
  302.          IF A$=CHR$(49) THEN GOTO UTILS1
  303.          IF A$=CHR$(50) THEN GOTO UTILS2
  304.          IF A$=CHR$(51) THEN GOTO UTILS3
  305.          IF A$=CHR$(27) THEN GOTO START
  306.       GOTO UTILMENU
  307.  
  308. UTILS1:
  309. SHELL "CD\TOOLS\UTILS1"
  310. SHELL "GO.BAT"
  311. SHELL "CD\MENU"
  312. GOTO UTILS
  313.  
  314. UTILS2:
  315. SHELL "CD\TOOLS\UTILS2"
  316. SHELL "GO.BAT"
  317. SHELL "CD\MENU"
  318. GOTO UTILS
  319.  
  320. UTILS3:
  321. SHELL "CD\TOOLS\UTILS3"
  322. SHELL "GO.BAT"
  323. SHELL "CD\MENU"
  324. GOTO UTILS
  325.  
  326. END
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333.  
  334.  
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344.  
  345.  
  346.  
  347.  
  348.  
  349.  
  350.